program intrukcjestrukturalne;
var
	a,z: integer;
label
	13;
begin
	a := 1;
	if a=1 then
		a:=2
	else
		a:=3;
	goto 13;
	
13:
{	case a of
		1,3: a:=4;
		2: a:=5;
	else
		a:=6
	end;}
	
	while a < 10 do
		a:=a+1;

	for z := a downto 1 do
		a := z;

	repeat
		a:=a+1;
	until a=10;
end.
